Public Class RazonesSociales
    Dim ADTipoDeRS As New ADCono.RazonesSociales
    Dim ADDomicilios As New ADCono.Domicilios

    Public Function ObtenerRazonesSociales(Optional ByVal CodTDRS As Integer = 0, Optional ByVal NomRS As String = "", _
    Optional ByVal NomTDRS As String = "", Optional ByVal NomIns As String = "", Optional ByVal Tip As String = "")
        Dim DS As New DataSet

        DS = ADTipoDeRS.ObtenerRazonesSociales(CodTDRS, NomRS, NomTDRS, NomIns, Tip)
        Return DS
    End Function

    Public Function ObtenerDomiciliosFiltradosRS(ByVal Cod_RS As Integer)
        Dim DS As New DataSet
        DS = ADDomicilios.ObtenerFiltradoRS(Cod_RS)
        Return DS
    End Function

    Public Function ObtenerTipDeRazSoc(Optional ByVal Nom As String = "", Optional ByVal Est As String = "")
        Dim DS As New DataSet
        DS = ADTipoDeRS.ObtenerTiposDeRS(Nom, Est)
        Return DS
    End Function

    Public Function GenerarTipDeRazSoc(ByVal NomTDRS As String, ByVal ObsTDRS As String)
        Dim DS As New DataSet
        DS = ADTipoDeRS.GenerarTipoDeRS(NomTDRS, ObsTDRS)
        Return DS
    End Function

    Public Function GenerarRazSoc(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = ADTipoDeRS.GenerarRS(Dat(0), Dat(1), Dat(2), Dat(3), Dat(4), Dat(5))
        Return DS
    End Function

    Public Function ModificarTipDeRazSoc(ByVal NomTDRS As String, ByVal ObsTDRS As String, ByVal CodTDRS As Integer)
        Dim DS As New DataSet
        DS = ADTipoDeRS.ModificarTipoDeRS(NomTDRS, ObsTDRS, CodTDRS)
        Return DS
    End Function

    Public Function EliminarTipDeRazSoc(ByVal CodTDRS As Integer)
        Dim DS As New DataSet
        DS = ADTipoDeRS.EliminarTipoDeRS(CodTDRS)
        Return DS
    End Function
End Class